program Project1; //Zadanie 3.11

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, suma : Integer;

begin
 Writeln('Program sumuje liczby parzyste w przedziale od 1 do 100.');
 suma:=0;
 i:=0;

 repeat
  if (i mod 2 = 0) then
   suma:=suma + i ;
  i:=i + 1;
 until i > 100;

 Writeln('Suma liczb parzystych w przedziale od 1 do 100 wynosi ', suma, '.');

 Readln; //czeka na nacisniecie klawisza Enter
end.

